*******************************************************************************
*Replication script for study 2: Claassen, J., Lenzner, T., Höhne, J.K., & 
*Ziller, C. (in press). A survey mode of the future? Investigating respondents' 
*willingness to participate in self-administered video-based web surveys. 
*Methods, Data, Analyses. 
*******************************************************************************

*import dataset
use "video_based_web_surveys_study_2.dta", replace


*******************
*Sample composition
*******************

*age
sum age

*gender: female
tab female

*euducation
tab education

*device
tab device

*experimental groups
tab group

*statistical tests to evaluate the effectiveness of random assignment
oneway age group, tabulate bonferroni
tab group female, row chi
tab group education, row chi
tab group device, row chi


****************************************************************************
*Table 2. Respondents' willingness to participate in video-based web surveys 
*with different answer components (Study 2)
****************************************************************************

*distribution of willingness by experimental group
tab willingness group, col

*exclude non-substantive answers options for chi-squared test
gen willingness_4_point = willingness if willingness >= 1 & willingness <= 4

*chi-squared test
tab willingness_4_point group, col chi


****************************************************************************
*Table 6. OLS regressions with willingness to participate in video-based web 
*surveys as dependent variable (Study 2)
****************************************************************************

*M2
reg willingness_4_point i.group technology openness conscientiousness extraversion agreeableness  neuroticism  interest difficulty topic_sensitivity evaluation age i.female i.education i.smartphone /*without robust standard errors*/
generate sample = e(sample)

reg willingness_4_point i.group technology openness conscientiousness extraversion agreeableness  neuroticism  interest difficulty topic_sensitivity evaluation age i.female i.education i.smartphone, vce(robust) /*with robust standard errors*/

*M1
reg willingness_4_point i.group if sample == 1 /*without robust standard errors*/

reg willingness_4_point i.group if sample == 1, vce(robust) /*with robust standard errors*/
